home *** CD-ROM | disk | FTP | other *** search
/ Focus for Success / Focus for Success.iso / pc / game2.dxr / 00087_Field_87.txt < prev    next >
Text File  |  1995-02-28  |  1KB  |  52 lines
  1. on mouseUp
  2.   --COPYRIGHT 1993 BY ROBERT M. NIDEFFER
  3.   PUT THE TICKS INTO LINE 2 OF CARD FLD TIME
  4.   PUT THE SHORT NAME OF ME INTO X3
  5.   IF X3=CARD FLD ANSWER1 THEN
  6.     PUT LINE 1 OF CARD FLD TIME INTO A
  7.     PUT LINE 2 OF CARD FLD TIME INTO B
  8.     PUT(B-A) INTO T1
  9.     PUT LINE 1 OF CARD FLD COUNT INTO X
  10.     PUT CARD FLD SECONDS INTO Y
  11.     IF Y-X<2 THEN
  12.       SHOW CARD FLD "GAME OVER"
  13.       WAIT 2 SECONDS
  14.       HIDE CARD FLD "GAME OVER"
  15.       CLICK AT LOC OF CARD BUTTON SCORE
  16.       EXIT MOUSEUP
  17.     END IF
  18.     
  19.     PUT 60*(Y-X) INTO T2
  20.     IF T1<T2 THEN
  21.       PUT THE NUMBER OF LINES IN CARD FLD SUBJECT1 INTO CT
  22.       ADD 1 TO LINE 1 OF CARD FLD COUNT2
  23.       PUT T1 INTO LINE CT+1 OF CARD FLD SUBJECT1
  24.       PUT 0 INTO LINE 2 OF CARD FLD COUNT3
  25.       --SHOW CARD FLD "CORRECT"
  26.       --PLAY BOING
  27.       --WAIT 30
  28.       --HIDE CARD FLD CORRECT
  29.       CLICK AT LOC OF CARD BUTTON "PLAY BONUS"
  30.     END IF
  31.     IF T1>T2 THEN
  32.       SHOW CARD FLD SORRY
  33.       WAIT 3 SECONDS
  34.       HIDE CARD FLD SORRY
  35.     END IF
  36.   END IF
  37.   
  38.   IF X3<>CARD FLD ANSWER1 THEN
  39.     --SHOW CARD FLD "WRONG"
  40.     REPEAT WITH I=1 TO 5
  41.       HIDE CARD BUTTON I
  42.     END REPEAT
  43.     --HIDE CARD FLD "WRONG"
  44.     ADD 1 TO LINE 1 OF CARD FLD COUNT3
  45.     CLICK AT LOC OF CARD BUTTON "PLAY LATERDUDE"
  46.   END IF
  47.   
  48.   
  49.   CLICK AT LOC OF CARD BUTTON START
  50.   
  51.   
  52. end mouseUp